10 PRINT"[147][155]"CHR$(8)CHR$(14):POKE53280,0:POKE53281,0 20 GOSUB1000 30 GOSUB1300 35 GET K$: IF K$<>CHR$(13) THEN 35 40 GOSUB1400 45 GET K$: IF K$<>CHR$(13) THEN 45 50 GOSUB1500 55 GET K$: IF K$<>CHR$(13) THEN 55 60 GOSUB1600 65 GET K$: IF K$<>CHR$(13) THEN 65 70 GOSUB1700 75 GET K$: IF K$<>CHR$(13) THEN 75 99 SYS(8*4096)+4 1000 PRINT""; 1010 PRINT"[155][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"; 1020 PRINT"[221][153] [155][221]"; 1030 PRINT"[221][153] [211]OFTWARE FROM [208]HILIP [200]UGHES [155][221]"; 1040 PRINT"[221][153] [155][221]"; 1050 PRINT"[155][171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"; 1060 GOSUB1200 1065 PRINT""; 1070 PRINT"[155][171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"; 1075 PRINT"[221][153] [155][221]"; 1080 REM PRINT"[221][153] [198]OR MORE INFORMATION OR TO ORDER: [155][221]"; 1090 PRINT"[221][153] [208]HILIP [200]UGHES [211]OFTWARE [155][221]"; 1100 PRINT"[221][153] 11910 [212]HOROUGHBRED #110 [155][221]"; 1110 PRINT"[221][153] [200]OUSTON, [212][216] 77065 [155][221]"; 1114 PRINT"[221][153] (713) 955-9084 [155][221]"; 1115 PRINT"[221][153] [155][221]"; 1120 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][157]"CHR$(148)"[192]"; 1125 PRINT""; 1130 RETURN 1200 PRINT""; 1205 FORX=1TO12 1210 PRINT"[155][221][159] [155][221][159][157]"CHR$(148)" " 1220 NEXT 1225 PRINT""; 1230 RETURN 1300 PRINTSPC(12)"[159][215]ORD [205]ASTER 128" 1310 PRINTSPC(5)"[193]N EASY-TO-USE YET POWERFUL WORD" 1320 PRINT"PROCESSOR FOR THE [195]128, CAPABLE OF" 1330 PRINT"PROVIDING PROFESSIONAL DOCUMENTS FOR" 1340 PRINT"HOME AND BUSINESS. [215]ORD [205]ASTER HAS" 1360 PRINT"OVER 60 FEATURES, INCLUDING FULL" 1370 PRINT"SCREEN EDITING, SEARCH AND REPLACE," 1380 PRINTSPC(7)"[208]RESS  [210][197][212][213][210][206] [159] TO [195]ONTINUE"; 1390 RETURN 1400 GOSUB 2000 1410 PRINT"[159]BLOCK COPY AND MOVE, UNDERLINING," 1420 PRINT"BOLD FACE TYPE, SUBSCRIPTS AND" 1430 PRINT"SUPERSCRIPTS, PLUS MANY OTHERS." 1440 PRINTSPC(5)"[201]F YOU ARE TIRED OF HUNDRED PAGE" 1450 PRINT"MANUALS, THIS WORD PROCESSOR IS FOR" 1460 PRINT"YOU. [215]ORD [205]ASTER 128, ONLY  $9.95 [159]" 1470 PRINT"PLUS $2.00 FOR SHIPPING." 1480 PRINTSPC(7)"[208]RESS  [210][197][212][213][210][206] [159] TO [195]ONTINUE"; 1490 RETURN 1500 GOSUB2000 1510 PRINTSPC(13)"[159][215]ORD[205]ASTER 64" 1520 PRINTSPC(5)"[193] SIMPLE YET EASY-TO-USE WORD" 1530 PRINT"PROCESSOR FOR THE [195]64, PROVIDING" 1540 PRINT"FULL SCREEN EDITING, SEARCH AND" 1550 PRINT"REPLACE, INSERT AND DELETE, PLUS" 1560 PRINT"MANY, MANY MORE. [215]ORD[205]ASTER 64" 1570 PRINT"IS ALSO THE ONLY WORD PROCESSOR THAT" 1580 PRINTSPC(7)"[208]RESS  [210][197][212][213][210][206] [159] TO [195]ONTINUE"; 1590 RETURN 1600 GOSUB2000 1610 PRINT"[159]IS ABLE TO WORK WITH [205]IKE [203]ONSHAK'S" 1620 PRINT" [196]ATAFILE 64 [159]." 1630 PRINTSPC(5)"[215]ORD[205]ASTER 64 HAS THE ABILITY" 1640 PRINT"TO MERGE UP TO 25 DIFFERENT FIELDS" 1650 PRINT"OF INFORMATION INTO ANY DOCUMENT" 1660 PRINT"AND AT ANY LOCATION WITHIN THE" 1670 PRINT"DOCUMENT. [201]TS MERGING CAPABILITIES" 1680 PRINTSPC(7)"[208]RESS  [210][197][212][213][210][206] [159] TO [195]ONTINUE"; 1690 RETURN 1700 GOSUB2000 1710 PRINT"[159]ARE EASY AND VERY POWERFUL. [211]INCE" 1720 PRINT"OTHER SUPPORT PROGRAMS ARE IN" 1730 PRINT"EXISTENCE, IT COULD ALSO MERGE" 1740 PRINT"INFORMATION FROM OTHER DATABASES" 1750 PRINT"SUCH AS [196]ATAMANAGER OR [208]OCKETFILE." 1760 PRINT"[215]ORD[205]ASTER 64, FOR ONLY  $19.95 [159]" 1770 PRINT"PLUS $2.00 FOR SHIPPING." 1780 PRINTSPC(8)"[208]RESS  [210][197][212][213][210][206] [159] TO [213]P[212]IME"; 1790 RETURN 2000 PRINT""; 2010 FORX=1TO12 2020 PRINT"[159] [155]" 2030 NEXT 2040 PRINT""; 2050 RETURN